Dim Numbers(1 To 3, 1 To 4)
Dim row As Integer, col As Integer, Sum As Single

Private Sub cmdCol_Click()
    'to calculate column values of a row
   For row = 1 To 3
        Sum = 0
        For col = 1 To 4
            Print Numbers(row, col);
            Sum = Sum + Numbers(row, col)
        Next col
        Print
        Print Sum
        Print
    Next row
End Sub

Private Sub cmdDisplay_Click()
    Print
    For row = 1 To 3
        For col = 1 To 4
            Print Numbers(row, col);
        Next col
        Print
    Next row
        
End Sub

Private Sub cmdRow_Click()
'to display sum of row values in a column
    Dim Summ(1 To 4) As Single
    'initialize Summ() to 0
    For col = 1 To 4
        Summ(col) = 0
    Next col
        'to add values of each column
        For col = 1 To 4
            For row = 1 To 3
                Summ(col) = Summ(col) + Numbers(row, col)
            Next row
        Next col
        'display Numbers of 2 DIM array
        For row = 1 To 3
            For col = 1 To 4
                Print Numbers(row, col);
            Next col
            Print
        Next row
        'to display SUMM
                For col = 1 To 4
                    Print Summ(col);
                Next col
                Print
        
End Sub

Private Sub Form_Load()
Open "a:\Numbers.txt" For Input As #1
    For row = 1 To 3
        For col = 1 To 4
        Input #1, Numbers(row, col)
        Next col
    Next row
 Close #1
End Sub